use PDL;
my $samples = sin(sequence(44100) * 2 * atan2(0,-1) * 440 / 44100);