#!/usr/bin/perl

  use strict;

  my @chars = (
    split('', 'abcdefghijklmnopqrstuvwxyz'),
    split('', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
    split('', '0123456789!@#$%^&* '),
  );

  print @chars;
[download]