my $tf = tie my @array, 'Tie::File', "d:/tmp/TieUrlMap.php" or die;
for(@array){ my $in = $_ };

print Dumper $tf;
# Die ganze Datei liegt in der Instanz