for my $file (sort keys %file_attachments) {
      print "$file, price=$file_attachments{$file}{price}, desc=$file_attachments{$file}{desc} ";
}