Select Code to Download

my @VLANS, @MACS, @INTS);
      push $HASH{$MACS[$mac]}, [$VLANS[$vlan], [$INTS[$int]];

# make the data a string
$value = join("|", $VLAN, $MAC, $INT);
...
 $HASH{$mac}=$value; 
}

for my $mac (keys %HASH){
  my $value = $HASH{$mac};
  ($VLAN, $MAC, $INT) = split("|", $value);
}

# or put them in a multi-dimensional hash.
$HASH{$mac}{$value}++;

for my $mac (keys %HASH){
  for my $value (keys %{$HASH{$mac}}){
  }
}