foreach my $aref (@array) {
   # If you really need them...
   my ($one, $two, $three, $four) = @$aref;
   # Etc. etc.
}