#!/usr/bin/perl -w -T
use strict;

# tulostetaan hello world

my $nimi = "Tommi Lahtonen";
my $paino = "125";

print "Nimeni on $nimi\n"; 
print "Nimeni on " . $nimi . '$nimi\n'; 

my @opintoviikot = ("kukkuu", "luuruu", "4");
my @viikot = (2, 3, "kukkuu");

foreach my $p ( @opintoviikot ) {

  print $p . "\n"; 

}

my %kurssit = (
	itkp101 => "3",
	itky201 => "3",
	tjta270 => "4"
);

foreach my $p ( keys %kurssit ) {
  print "Avaimella $p löytyy arvo " . $kurssit{$p} . "\n";
}


 my $INFILE;
 my $OUTFILE;
 my $LOGFILE;

   open($INFILE,  "input.txt")   or die "Can't open input.txt: $!";
   open($OUTFILE, ">output.txt") or die "Can't open output.txt: $!";
   open($LOGFILE, ">>my.log")    or die "Can't open logfile: $!";

    my $line  = <$INFILE>;
    my @lines = <$INFILE>;

    while ($line = <INFILE>) {      
        print "Rivi: $line";
    }
    close $INFILE;