#!/usr/bin/perl use strict; my @chars = ( split('', 'abcdefghijklmnopqrstuvwxyz'), split('', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'), split('', '0123456789!@#$%^&* '), ); print @chars;