for my $quality ( 'soft', 'absorbant' ){ SELECT ":rec{name}, :rec{email} from ... where DIAPER=?", $quality { print "$rec{name} < $rec{email} >\n"; } }