#! /usr/bin/perl -w
use strict;
chomp (my $value = <STDIN>);

my @value = split "",$value;
my $count = @value;

my $i;
for ($i=0;$i<$count;$i++) {
  print "\@value[$i] = $value[$i]\n";
}