hello monks i was trying to use for loops in perl gtk2 heres my very simple code

#!/usr/bin/perl

use strict;
use warnings;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

my $window=Gtk2::Window->new();
$window->signal_connect('delete_event',sub{Gtk2::main_quit;});

my $num=0;
my $vbox1=Gtk2::VBox->new;
my $label=Gtk2::Label->new("Total Count: $num");
for (1 .. 5){
    $num=$_;
    $label->set_text("Total Count: $num");
}
$vbox1->add($label);
$window->add($vbox1);
$window->show_all;
Gtk2->main;
</pre>
[download]

i was expecting the result would be 
->Expectation<-
Total Count: 1
Total Count: 2
Total Count: 3
Total Count: 4
Total Count: 5
->Result<-
Total Count: 5
[download]

i was expecting to loop from 1 to 5 but it only prints 5 is there something wrong with my code but i guess the error is in the packing method like `->pack` in perl/Tk 
Comment on trying to use loops in perl gtk2
Select or Download Code