#!/usr/bin/perl
use Text::QRCode;

my $arrayref = Text::QRCode->new()->plot("Some text here.");
print join "\n", map { join '', @$_ } @$arrayref;