my @account = qw(
    34765-22333-333489-99867-22340-23456-3229 XLM8876 AMP7765 WQP22349
);

my @account_starting_with_digit;
my @account_starting_without_digit;
for my $checked (map {split /-/, $_} @account) {
    if ($checked =~ /^\d/) {
        push @account_starting_with_digit, $checked;
    }
    else {
        push @account_starting_without_digit, $checked;
    }
}
print "*" . (join " ", @account_starting_without_digit) . "*<br>\n";
print "-" . (join " ", @account_starting_with_digit) . "-<br>\n";