Select Code to Download

@numbers = (1,2,3,4,5,6,7);
@words = ('one', 'two', 'three', 'four', 'five', 'six', 'seven');
@odd_even = ('odd', 'even', 'odd', 'even', 'odd', 'even', 'odd');
@prime = ('not', 'prime', 'prime', 'not', 'prime', 'not', 'prime');

@numbers_with_attributes = ( [1, 'one', 'odd', 'not'], 
                             [2, 'two', 'even', 'prime'],
...
                             [7, 'seven', 'odd', 'prime'],
                           );
@alpha_sort = sort { $a[1] cmp $b[1] } @numbers_with_attributes;