#!/usr/bin/perl -w
use strict;

my @list = (
  {
    name        => "cm_lg_port",
    description => "Full Page",
    dimensions  => "8.5 x 11 inches",
    layout      => "portrait",
    weight      => "251k",
  },
  {
    name        => "cm_sm_port",
    description => "Half Page",
    dimensions  => "5.5 x 8.5 inches",
    layout      => "portrait",
    weight      => "217k",
  },
  {
    name        => "cm_sm_land",
    description => "Half Page",
    dimensions  => "8.5 x 5.5 inches",
    layout      => "landscape",
    weight      => "207k",
  }
);
my $arrayref = \@list;

foreach my $file (@$arrayref) {
    print $file->{name};
    print $file->{description};
    print $file->{dimensions};
    print $file->{layout};
    print $file->{weight};
}