#!/usr/bin/perl use warnings; use strict; my $z; for $z ('a'...'z', 0...9 ) { print "$z "; } print "\n";