for ( my $i; $i <= $#{$self ->session->param('item') }; $i++ ) { 
    print $self -> session -> param('item') -> [$i ] . "\n";
}