Help for this page
print "$file{'receipt', 'file'}\n"
use Data::Dumper; print Dumper($file{'receipt', 'file'})