sub find_usb { my @temp; my $post = sub { push @temp, { filename => $_, mtime => stat($_)->mtime } if /USB/ }; find( $post, 'c:/test' ); return @temp; }