my ($number,@data) = do {
    my $fmt = 'N';
    $fmt .= ' n' x 600;
    unpack $fmt, $response;
};