my $first = undef;

while (my $record = $sth->fetchrow_arrayref) {
  unless (defined $first) { @{$first} = @{$record} }
  # other stuff
}