$vips{$2}++;
    ...
    push @{$vipstack{$k}}, $vips{$k};
    shift @{$vipstack{$k}} if @{$vipstack{$k}} > 50;
    ...
    my $temp = $vipstack{$k};