package main;
use strict;
use warnings;

my $name='mydata';

my $FOO;
tie $FOO,"MyTie";
open($FOO,'<',$name)
    or die "Can't open '$name' for reading. $!";
my $line=<$FOO>;
print "Scalar: $line";
$line=<$FOO>;
print "Scalar: $line";
my @array=<$FOO>;
print "Array: ",@array;
while (<$FOO>) {
    print "In while: $_";
    }
close($FOO);

exit;