# The standard open file, read lines into an array (@lines), close file is completed

# Problem
$user = $ENV{USER};
foreach $line(@lines) {
     print "$line\n";
}