use Data::Dumper;
print Dumper \@file_info;