#!/usr/bin/perl

$foo = "3d8";
print "$foo\n";
$foo++;
print "$foo\n";
$foo++;
print "$foo\n";
$foo++;
print "$foo\n";