Select Code to Download

use Data::Dumper qw/Dumper/;

...
    print "SAN : $San->{name}\n";
    print Dumper \@Colum_A;
}

use strict;
use warnings;
...
    }
}

Data in SAN : san1
    SAN : san1
...
    WW : 34:34:36:7U
    WW : 87:23:89:6C