$line = "aa;bb;cc;dd;ee";
my @stuff = split(/;/, $line);
my $a = $stuff[0];
my $b = $stuff[1];
my $d = $stuff[3];