What happens when you make everything look pretty:

@files = ();

sub filer
{
    $filepath_rs = $File::Find::name;
    if(-f $filepath_rs)
    {
        $metadata = {}; #should instantiate a new hash object and retu
+rn a scalar reference.
        $metadata->{path} = $filepath_rs;
        print $metadata->{path}; #prints out fine
        push @files, $metadata; #should add reference to hash to array
+.
    }
}


find(\&filer, $mydir);

foreach my $file (@files)
{
    print $file->{path}; #???
}
[download]