for (my $i = 0; $i < @list; $i ++) {
        print "$i: $list[$i]\n";
    }