#!/usr/bin/perl -w
use strict;

print
   (
      qq[\012],
      join
         (
            qq[\012],
            map
               {
                  map
                     (
                        { ord($_) } split(//,$_)
                     )
               } @ARGV
         ),
      qq[\012]
   );

__END__

print
   (
      qq[\012],
      join
         (
            qq[\012],
            map( { $_ = ord($_) } @ARGV )
         ),
      qq[\012]
   );

print
   (
      qq[\012],
      join
         (
            qq[\012],
            map
               {
                  map
                     (
                        { ord($_) } split(//,$_)
                     )
               } @ARGV
         ),
      qq[\012]
   );


print
   (
      qq[\012],
      join
         (
            qq[\012],
            map
               {
                  map
                     (
                        {
                           sprintf
                              (
                                 q[ordinal "] . $_ . q[" = %s], ord($_)
                              )
                        } split(//,$_)
                     )
               } @ARGV
         ),
      qq[\012]
   );