Select Code to Download

@array = (1, 0, 2, 0, 3, -1, 0, 4, 0, -5, 0, 123);
@nonzeros = grep {$_} @array;

@array = (1, 0, 2, 0, 3, -1, 0, 4, 0, -5, 0, 123);
@nonzeros = grep {$_ != 0} @array;