Wie wäre es mit einem einfachen split:

my @MyGroups = split /;/, $_;