snip....

my @info = (stat ($tapes))[9];
print "@info\n";