my @arr = map { pack 'd', $_ } ( 1, 1.5, 3 );