[تنبيه : عنوان غير مناسب]المرجو المساعدة

السلام عليكم و رحمة الله و بركاته

المشكلة :إخواني أنامبتدئ في بيرل . عندي كود مكتوب بلغة بيرل . يجب أن يقوم هذا الكود بطباعة كل القيم الموجودة في الهاش Users بحيث يكون هناك سطر بين كل قيمة و أخرى أترككم مع الكود لتفهموا المشكلة (مع العلم أني أستخدم نظام تشغيل الباك تراك 5)

الكود :

#!/usr/bin/perl

my %Users = ("User1" => "Amr" , "User2" => "Nabeel" , "User3" => "Samir" , "User4" => "Amr"); 

my $CUser = %Users;

for (my $i=0;$i<$Cuser;$i++) {
my $forUser = "User"."$i";
print $Users{$forUser};
print "\n";
}

و بعد تشغيل البرنامج لا يظهر شيء !! . المرجو المساعدة