#!/usr/bin/perl
%machines =(user1, 'booboo', user2, 'puter', user3, 'synta', user4, 'synta'); for $key (keys %machines) { $val=$programs{$key} if (!defined $supliers{$val}) { $supliers{$val}=1; } else { print "duplicate value: $val\n"; print "duplicate value: $val\n"; Cannot understand what is the purpose of $key (keys %machines) , $programs{$key} and $supliers{$val} on this script. Will be grateful to get some help! R o n e n K f i r System Administrator CIT div. Tel Aviv University Israel Tel: 972-3-6407416 Fax: 972-3-6405158 cellular: 972-55-405910 E-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>