tie @file, 'Tie::File', $filepath;
    for (@file) {
        print "$_\n";
    }
    print "line2 = $file[1]";