If you're going to be using a referenced hash then the following code will do the trick for you. It gets a little confusing when to use {} and when to use (), at least I would always get these mixed up.
#! /usr/local/bin/perl
use warnings;
use strict;
my $allData = {
src1 => {
dest1 => '112.112.112.112',
dest2 => '112.112.112.113'
},
src2 => {
dest1 => '192.168.1.101',
dest2 => '192.167.1.102'
}
};
foreach my $source ( keys %{$allData}){
foreach my $dest (keys %{$allData->{$source}}){
#blah
}
}
Hope that makes sense or helps.
Cheers!
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;