for (1..10) {
    print $MagicItems[rand(@MagicItems,)],"\n";
};