#!/usr/bin/perl

@num = (3, 9, -4, 10, -6);

@num2 = map { $_ >= 0 ? sqrt $_ : ()} @num;

print "@num2\n";
