my %data = ( 'tt.exe' => { ABC => [ 10, 4 ], def => [ 3, 2], ggg => [ 1 , 0], }, 'ww.exe' => { ABC => [ 430, 5], def => [ 33 , 10], ggg => [ 10 , 4], }, 'xx.exe' => { ABC => [ 60 , 22], def => [ 23 , 3], ggg => [ 11 , 10], }, ); $,=' '; print "start and finish :", @{$data{'ww.exe'}->{def}}, "\n";