#!/usr/bin/perl -w
use strict;
use String::Format qw(stringf);

print stringf( "%a->%o->%a\n", a => "apples", o => "oranges" );