my @columns = ( "Gender" ); my %dataoptions = ( "Gender", ["Male", "Female"] ); for ($i = 0; $i < @columns; $i++) { print $columns[$i].': '; foreach $option ($dataoptions{$columns[$i]}) { print ' '.$option.' '; } }