@data = (["fred", "black"], ["wilma", "red"], ["barney", "blonde"], ["betty", "black"]); 
@color = qw(black red blonde black); for $rec (@data) { my($name, $color) = @$rec; print $name . " - " . $color . "\n" }
# fred - black
# wilma - red
# barney - blonde
# betty - black