$field1 = $row->{field1}; $field2 = $row->{field2}; $field3 = $row->{field3};
print "Row id is $field1, field 2 is $field2, field 3 is $field3\n";

##</code><code>##

print sprintf "Row id is %s, field 2 is %s, field 3 is %s\n", @{$row}{qw/field1 field2 field3/};