untested code:

my @with;
my @without;
foreach (@arr) {
    if (/^\@(.*)/) {
        push(@with,$1);
    }
    else {
        push(@without,$_);
    }
}
my $str1 = join(",",@without);
my $str2 = join(",",@with);
[download]

straight forward and brute force...too early for me to think up a slick way to do it. ;)

HTH

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"