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