Re: Array splitting

[Kenosis]

You need to use eq not ==,as the latter's used for numeric comparisons:

if(substr($_,0,1) eq 'A') { ...

Output:

Ape added to A
Arg added to A
Beep added to trash!
Circus added to trash!
Ape, Arg
Beep, Circus

Another option is to use a regex to check the beginning character:

if(/^A/) { ...

Also, consider doing the following for your print statements:

...
print "$_ added to A\n";
...
print "$_ added to trash!\n";

[bimleshsharma]

here is quick solution. See if it is useful for you.

sub split_array
{
my @not_sorted = qw(Ape Arg Beep Circus);
my @sorted = sort {$a cmp $b} @not_sorted;
my @A = ();
my @trash = ();

map{$_ =~/^A.*/ ? push(@A,$_):push(@trash,$_)} @sorted;

print "\n",@A,"\n";
print "\n",@trash,"\n";

}