Shell Programming and Scripting

my @LAYOUT = (
  {SQL_1    =>      "select count (*) FROM prospect
                            WHERE PROCESS_DATE = To_date('INSERT_DATE_HERE', 'mm/dd/yyyy')
                             and tiff_filename is not null
                             AND (COST_CENTER BETWEEN 6 AND 69)
                             and media_source = 'DM'
                             and lead_type = 'Q'
                             and vendor = 'ABC'"},
  {SQL_2     =>      "select count (*)
                             from prospect
                             WHERE PROCESS_DATE = To_date('INSERT_DATE_HERE', 'mm/dd/yyyy')
                             and tiff_filename is not null
                             AND (COST_CENTER BETWEEN 6 AND 69)
                             and media_source = 'TM'
                             and lead_type = 'L'
                             and vendor = 'ABC'"},
  {SQL_3    =>      "select count (*)
                            from prospect
                            WHERE PROCESS_DATE = To_date('INSERT_DATE_HERE', 'mm/dd/yyyy')
                             and tiff_filename is not null
                             AND (COST_CENTER BETWEEN 6 AND 69)
                             and media_source = 'LQ'
                             and lead_type = 'R'
                             and vendor = 'XYZ'"},

and so on...


);

foreach my $r(@LAYOUT) {
    $sql_file = (keys%$r)->[1];
    $sql_text = (values%$r)->[1];
    print $sql_file;
    print $sql_text;
}

foreach my $r(@LAYOUT) { 
    $sql_file = (keys %$r)[0];  # corrected
    $sql_text = (values %$r)[0]; # corrected
    print $sql_file; 
    print $sql_text; 
}