#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; my @MainArray; while () { chomp; push @MainArray, [ split // ]; } print Dumper \@MainArray; __DATA__ Hello my name is Jack