use strict;
use warnings;

my @file_attachments = (
  {file => 'test1.zip',  price  => ['10.00'],  desc  => 'the 1st test'},
  {file => 'test2.zip',  price  => ['12.00', '14.00'],  desc  => 'the 2nd test'},
  {file => 'test3.zip',  price  => ['13.00', '15.00'],  desc  => 'the 3rd test'},
  {file => 'test4.zip',  price  => ['14.00'],  desc  => 'the 4th test'}
  );

for my $file_attachment (@file_attachments) {
	print "$file_attachment->{file}:\n";
	print "$_\n" for @{ $file_attachment->{price} };
	print "\n";
}

##</code><code>##

test1.zip:
10.00

test2.zip:
12.00
14.00

test3.zip:
13.00
15.00

test4.zip:
14.00