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